home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
Alias_ZP.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-03-09
|
2KB
|
85 lines
/* $VER 0.3 ALIAS_ZP.rexx (16.01.1994)
Usage: rx ALIAS_ZP.rexx <Ausgabedatei>
Beispielscript um eine Z-Netz-Adresse in Adressmaster zu finden
und an die Aliasliste von Zodiac's Point anzuhaengen.
Der E-Mailadresse muss immer ein 'Z:' vorangestellt sein.
Z.B.: Z:Hallo@da.zer.sub.org
Written by Hans Joachim Schiefer. */
OPTIONS RESULTS /* Rückgabewerte zulassen */
/* Wurde ein Argument angegeben? */
IF arg() ~=1 THEN outfile="*"
else PARSE ARG outfile;
IF ~Open(datei,outfile,"A") THEN DO /* Ausgabedatei öffnen und */
SAY "Kann Ausgabedatei nicht öffnen!" /* gefundene Adresse anhaengen */
EXIT
END
SAY 'Bitte Nachnamen eingeben'
PULL WORT
fst = 1 /* Anfangsposition = 1 (= erste Adresse) */
found = 0
ADM.LASTNAME = WORT
DO FOREVER /* Endlosschleife */
ADDRESS 'ADM.1'
SEARCH fst ADM /* Eintrag suchen */
found = RESULT
IF found >-1 THEN DO /* Rückgabewert = Nummer der gefunden Adresse */
GETADDRESS ADM /* Adresse holen in Stemvar ADM */
e1 = upper(ADM.EMAIL1)
e2 = upper(ADM.EMAIL2)
if (pos('Z',e1)) THEN DO /* Wurde 'Z' in ADM.EMAIL1 gefunden dann */
ok = WriteLn(datei," ")
ok = WriteLn(datei,"N:" || ADM.FIRSTNAME || " " ||ADM.LASTNAME)
ok = WriteLn(datei,"A:" || right(ADM.EMAIL1,length(e1)-2))
ok = WriteLn(datei,"B:" || "Hallo " || ADM.FIRSTNAME)
ok = WriteLn(datei,"-")
END /* DO */
if (pos('Z',e2)) THEN DO /* Wurde 'Z' in ADM.EMAIL2 gefunden dann */
ok = WriteLn(datei," ")
ok = WriteLn(datei,"N:" || ADM.FIRSTNAME || " " ||ADM.LASTNAME)
ok = WriteLn(datei,"A:" || right(ADM.EMAIL2,length(e2)-2))
ok = WriteLn(datei,"B:" || "Hallo " || ADM.FIRSTNAME)
ok = WriteLn(datei,"-")
END /* DO */
fst = found + 1
END /* DO */
ok = Close(datei)
EXIT 0
END /* IF */
END /* DO */